Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/T-Z/Windoids.cpt/Windoid 1.6.1/card_11446.txt

Text File | 1989-04-13 | 3KB | 118 lines

-- card: 11446 from stack: in.1
-- bmap block id: 11584
-- flags: 0000
-- background id: 10029
-- name:


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=6 top=246 right=271 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 12
-- style flags: 8192
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn 1
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=76 top=243 right=274 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 10639 / 10639
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

--Same as Ted Kaehler's script, except it's specific for this button

on mouseStillDown
  --Edits the script of a button if you press and hold the
  --mouse button inside the button, and quickly
  --move in and out of the top edge of the button twice.
  global editTicks, editState
  if (the ticks)-editTicks > 120 then
    put the ticks into editTicks
    put 0 into editState
  else
    get the rect of me
    if the mouseV < (item 2 of it) then
      if editState = 0 then put 1 into editState
      if editState = 2 then put 3 into editState
    end if
    if the mouseV > (item 2 of it) then
      if editState = 1 then put 2 into editState
      if editState = 3 then put 4 into editState
    end if
  end if
  --put editState
  if editState = 4 then edit script of the name of me
end mouseStillDown


-- part contents for background part 11
----- text -----
• Use a gesture to get to a button's script, without having to choose the Button Tool.  The gesture consists of pressing and holding the mouse button down inside the button, and moving the cursor in and out of the top edge of the button 2 times!  (Rub the top edge of the button.)

Practice until you can do it.

(The trick here is to not interfere with anything else.  I don't use the idle task, it can slow things down.  The whole thing is in the mouseStillDown message.  If your button uses mouseStillDown, you might want to "pass mouseStillDown" at the end of your script.)

Put this into your Home stack script

on mouseStillDown
  --Edits the script of a button if you press and hold the
  --mouse button inside the button, and quickly
  --move in and out of the top edge of the button twice.
  if "button" is not in the name of the target then exit mouseStillDown
  global editTicks, editState
  if (the ticks)-editTicks > 120 then
    put the ticks into editTicks
    put 0 into editState
  else
    get the rect of the target
    if the mouseV < (item 2 of it) then
      if editState = 0 then put 1 into editState
      if editState = 2 then put 3 into editState
    end if
    if the mouseV > (item 2 of it) then
      if editState = 1 then put 2 into editState
      if editState = 3 then put 4 into editState
    end if
  end if
  --put editState
  if editState = 4 then edit script of the name of the target
end mouseStillDown
Ô£ø

-- part contents for background part 17
----- text -----
Gesture

-- part contents for background part 18
----- text -----
• by
Ted Kaehler

-- part contents for background part 19
----- text -----
volume 1 •  number  6  •  card 5  •

-- part contents for card part 14
----- text -----
try  "rubbing"
this button